pinverse Function

public pure function pinverse(a) result(rst)

Computes the Moore-Penrose pseudoinverse of an M-by-N matrix.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in),		dimension(:,:)	::	a	The M-by-N matrix to invert.

Return Value real(kind=real64), allocatable, dimension(:,:)

The N-by-M inverted matrix.